MODULE hexadecimalOctal; 	
    VAR
    	resultado : INTEGER;
    	a : INTEGER;	
       	b : INTEGER;	    	
BEGIN     
	a := 0A5H;
	b := 651B;
	resulado := a/b;	   
END hexadecimalOctal.
